home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / sci / MathPlot.lha / MathPlot / Macros / DGL.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-08-08  |  392 b   |  32 lines
  1. /* Test of getintervall2 */
  2. address "MPlot_ARexx"
  3. options results
  4.  
  5. x0=0
  6. y0=0
  7. dx = 0.1
  8.  
  9. x=x0
  10. y=y0
  11.  
  12. /* Abbruchbedingung */
  13. getintervall2 stem a.
  14.  
  15. maxx = a.xmaxreal
  16.  
  17. /* Zum Vergleich */
  18. setcolor plotcolor 1
  19. /* clear force */
  20. plot 0 normal
  21.  
  22. setcolor plotcolor 2
  23.  
  24. do while x < maxx 
  25.  evalstring "cos(x) x=" x
  26.  dy = result*dx
  27.  y = y + dy
  28.  x = x + dx
  29.  line x0 y0 x y "pixel=off"
  30.  x0 = x
  31.  y0 = y
  32. end